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Perl 


سنتطرق في هذا الدرس إلى المبادئ الأساسية للغة perl‏ 


مقدمه : 

P1 -------‏ هي لغة برمجة أحدثها [1جW‏ arryا‏ (عtèmءرs )ingénieur‏ سنة 1986 بالإضافة إلى أروع مليون 
مطور» ومن ذلك الحين و 1مم مشهورة وتعرف تطوير دائم.(5.10.0) 

Practical Extraction and Report Language تعني في الأغلب‎ P..۳.[ ------- 


------ ePerlي‏ لغة غير متخصصة أحدثت في المقام الأول من أجل : 
المعالجة التلقائية للنصوص 


تطویر الاس 

برمجة الشبكات 

إخات الواجهات اترسونة 
وأشياء أخرة ...... 


۔۔۔۔لماذا [إم٥۲‏ عرفت هذا الإنتشار : 
* قابلية النقل (اليوم ۴٠۲1‏ توجد أو لها إمكانية الوجود على معظم أنظمة التشغيل 
E Amiga, Atari , VMS, Mac, Windows, Unix )‏ 
* مجاني (متوفر في الإنترنيت بدون قيود) 
*البساطة (أي هع من ۲1ءم سمح بإانجاز عمل يقوم به برنامج مکون مثلا من 500 سطر مکتوب ب ° أو ب 


( Pascal 

ملاحظة . 
(p minuscule) perl‏ هو الاسم الذي يطlذق JE‏ فصر (interpreter)‏ غ Perl‏ 
Perl‏ )eاuscuزaص‏ ۲ ) هو الاسم الذي يطلق على إسم اللغة 

ملاحظة. 


4 هي الماضي» ۲٥۲15‏ هي الحاضر» ۲٥۲16‏ هي المستقبل 


:1Arry W بواسطة 11ھ‎ ۴٥1 ۔۔۔۔۔ تاریخ موجز ل‎ 
Perl 0 introduced Perl to my officemates. 
Perl 1 introduced Perl to the world, and changed /\(...\|...\)/ to 
/(...|...)/. \(Dan Faigin still hasn't forgiven me. :-\) 
Perl 2 introduced Henry Spencer's regular expression package. 
Perl 3 introduced the ability to handle binary data (embedded nulls) . 
Perl 4 introduced the first Camel book. Really. We mostly just 
switched version numbers so the book could refer to 4.000. 
Perl 5 introduced everything else, including the ability to introduce 
everything else. 


--1-- الخطوات الأولى 
1-1- ترکیب أو تنصیب ۴٥۲۱‏ 


لنتآکد أولا ھل لدینا ٣٥1‏ بجھازنا م لاء نذهب إلى نافدة الدوس أو احومرنصآإم) ونكتب 

c:\> Perl -v 
فإذا حصلتم على رسالة تبين لكم معلومات عن اللغة ( إصدارها وما شابه ذلك) يبين هدا أن [م۴ مثبتة على جهازكم»‎ 
أما إذا حصلتم على رسالة تدل على حدوث خطأ مفاده أنه لم يعرف تلك التعليمة (۷- 1إم٥) ٬يدل ذلك علی أن 1م۲۴‎ 
غیر مثبت على جهازکم.‎ 
ملاحظۂ: عادتا لا یکون 1مم موجود علی م× › أما بالنسبة ل×ںہ[] فمعظم توزیعات لینکس ترکگب 1مم تلقائیاً.‎ 


کیف نثبت Windows JآذE Per]‏ ؟ 
لکي تتعامل مع ۴1 بشکل صحیح في ws‏ 0 لم۷1 یلزمك تثبیت ۴61 مآ ۸› يمكنك تنزیله من هنا 


www.activestate.com <==---- 
http://downloads.activestate.com/ActivePerl <-=----- 


بعد إنزال 1ء۴ م1۷اء۸ قم بتثبيته كما تثبت أي برنامج آخر. شيء عادي (التالي» التالي» التالي٬تثبيت‏ ثم نهاية) 


۔۔۔- هذا عنوان آخر للتحميل 
http://www.softpedia.com/get/Programming/Coding-languages-Compilers/ActivePerl.shtml‏ 


2-1 أين أكتب وع #هء الخاصة باإمم ؟ 


فقط قم بفتح 4همء٠N‏ ثم قم بكتابة الكود الخاص بك بعدها قم بتسجيله بإسم (أي إسم) فقط إعطيه الإمتداد 
التالي 1م › مثلا 1اexample.p‏ 


كملاحظة فهناك الكثير من البرامج المساعدة التي تتيح لك الكتابة بشكل مرتب وميسر (يمكن إستعمالها بدل 
NoteP ٩‏ ) › من بینها نجد مثلا: 
* ڊرqali .ActiveState Komodo Edit‏ 
*ڊرgali DzSoft Perl Editor‏ 
EngInSite Perl Editor *‏ 
Perl Studio 2009*‏ 
SannySoft Perl Editor*‏ 


3-1 برنامجنا الأول في ام۲ 


#!lusr/bin/perl 

use strict; 

use warnings; 

pleine Marheabann Oilom fi alam EEN MLE, 


#!/usr/bin/pe r1 -----‏ يدل على السار الذي يوجد به الفسراآاإءمP‏ . 


كما يمكنك بدل 1[ إمم/ ١‏ 1ط/٣إءں//#‏ كتابة التالي: 
!/usr/local/bin/perl‏ # 


مما أننا نعمل تحث 1۸d ows‏ ہکن بدل er1مusr/bin/p/!#‏ أن نکتب 
#!C:\Perl\bin\perl . exe‏ 


فإن لم تكن لك إمكانية الحصول على المسار الصحيح فقم بأخذ المساعدة من (إماه١اءنمنص‏ كھ ۳عtءرو)‏ مدير 
النظاء 


أو يمكنك إن كنت متأكد من إصدار 1ء٥‏ الذي لديك (مثلا ۷5.8.8) أن تكتب التالي في السطر الأول للبرنامج : 
Use 5.8.8;‏ 
ملاحظة: إن كان لديك متلا 6۲1م دو إصدار أقل من 5.8.8 واخترت أن تكتب الكود السابق فستحصل على خطأء 
أما إن كان لديك 1مم دو إصدار أكبر من 5.8.8 فلن تحصل على أي خطأً . 
تذكير : لتعرف الإصدار الذي لديك إفتح [ه”رأمn.٣ع)‏ أو نافدة الدوس و أكتب التالي 
C:\>Perl -v‏ 


--------بالنسبة ل ءاعااء میں فهي بإختصار تلزمك بأن تكون كتابتك للبرنامج تحقق قوانين وشروط لغة 1م٣۴‏ 


=== أما بالنسبهة ل use warnings‏ فھیي تقوم بطلب إظھار - رسائل الإنذار - إن 
حصل آي خطا آو خلل في ٥×ھ٣۷>.‏ 


4-1 تنفیذ برنامج في ۱٣٤م‏ 
سنتطرق هنا لطريقتين بارزتين لتنفيذ أحد البرامج في 1إمم 
------- الطريقة الأولى: 


نقوم بكتابة الكود في نافدة الدوس مباشرة 
إفتح نافدة الدوس مء وقم بكتابة مثلا : 


nent 


C:\>perl -e ''print \'"''uarhabann bikom fi 3alam Perı1\n 


C:\> Marhabann bikom fi 3alam Perl 


C:\> 


یمکننا ك نظيف wس-‏ لإظهار رسائل الإنذار إن حصل آي ھطلالے مال warnings‏ 6€ - ونکتب کالتالي- 


rrr 


C:\>perl -w -e '""print \"Marhabann bikom fi 3alam Peri\n 


هذه الطريقة ليست متداولة بكثرة وغير مضمونة - إن صح التعبير-» لكن هي طريقة سلسة وسريعة لعمل 
عملية صغيرة أو نداء لدالة خاصة ب|[إم۲. 


ملاحظة: 


بالنسبة ل ×ںuم1[‏ نفتح اهمذص٣ع)‏ ونكتب التالي 


perl -e 'print ''Marhabann bikom fi 3alam Perl1\n'"" 


ملاحظة. 


لمعرفة المزيد من عمنا لمحمصصهء الخاصة ب [إمم مع شرح بسيط لها » قم بكتابة التالي: 


-------الطريقة الثانية : 
إفتح (es†ەn-ءoاط)‏ adمpعNot‏ وكتب التالي - متل ما كتبنا في السكريبت الأول - 


#lusr/bin/perl 
use strict; 
use warnings; 


peine Marhabann BAKOM EI Salam EEE ML 


وقم بتسجيله بأي إسم متلا 
file name ===> exemple.pl‏ 
Save as type ===> All Files(*.*)‏ 


بعدها إذهب إلى نافدة الدوس وقم بكتابة التالي: 


C:\>perl exemple.pl 


ثم إضغط على ١مم‏ ليتم تنفيذ البرنامج ويظهر لك التالي: 
C:\> Marhabann bikom fi 3alam Perl‏ 


1 


ملاحظة: للتأكد من صحة البرنامج دون تنفيذه أكتب التالي: 


C:\>Perl -c exemple.pl 
بعد الضغط على )رع إن لم يكن في البرنامج خطأ ما سيظهر في الاأغلب التالي:‎ 


C:/Þ>exemple.p1 syntax OK 


5-1 أنواع البيانات في ۲٥م‏ 


1ء لها ثلاث أنواع من البيانات - وول -: 
5ع (كميات غير موحهة)أو (کمیات متغيرة)› 
0f sca‏ sرrraه‏ (مصفوفات خاصة بالكميات الغير موجهة) › 


arrays of sca‏ ssociativeه‏ (المصفوفات المتعاونة أوالمشتركة الخاصة بالكميات الغير 
موجهه) المعروفة بال sمطئھ‏ 
وهناك أيضا في 1مم نوع بیانات آخر يطلق عليه بع 01ہ ھطعات؟ . 


بشکل عام هڏه هي الكتابة العامة للإعلان عن أحد المتغيرات (sإواوءئ)‏ : 


my $name scalar; 
نکتب دائما$ قبل اسم المتغیر (؟إھاھعء)‎ 
ملاحظات:‎ 
. $ يمكن القول أن إهاهءء مرتبطة دائماب‎ * 
. تستخدم $ بكثرة للدلالة على 'مط)'‎ * 
2ءء يمكن أن يأخد قيمة واحدة إما عمزع)ء بسيطة (بدون حدود» مادامت الذاكرة تتيح‎ 
. (مرجع)‎ ا٥م٥‎ ٥٤٥ ذلك) » کما یمکن آن یأخذ عدد »أو حتی‎ 
cطوا *في 1مم لا نحتاج أن نعرف نوع المتغير مثلا هل هو ٤ہ¡ أو‎ 


متلا 
perl Vb.net 6‏ 
my $var ; Dim var as char char var ;‏ 
my $var ; Dim var as integer Int var ;‏ 


Normal arrays 
تتيح عدة قوائم منظمة ومرتبة يمكنك أن تخزن بها قيمة واحد أوعدة قيم مفهرسة بأرقام‎ * 


Hashes 
تتيح تخزين مجموعات من القيم الغير مرتبة ومفهرسة بقيمة تحددها أنت و التي تمثل‎ * 
(الدلیل).‎ kمy‎ 


بالاستئناس بتلك الملاحظات لاحظ التالي: 
إظهار قيمة إج[هعءء بسيطة # ; print $var‏ 
إظهار العنصر الذي ياتي في الرتبة 20 في المصفوفةvar@‏ # ;" print "$vVar[]19][‏ 


print "$var{ ‘nom’}"; 
# %var Hashe إظهار القيمة التي يدل عليها المؤشر ص0ہم في‎ 


print " $#var"; 


إظهار قيمة آخر (×عءلم1) في المصفوفة ٣ج‏ @ # 


* بالنسبة للمصفوفات رهه نشير لها في ]اعم ب@ 
* @ تستخدم بكثرة للدلالة على 'عءعط)' أو'مthos'‏ 


* 


my @var ; Dim var(9) as char char var[9] ; 
| my @var ; a Int var[9]; 


الفرق بين 1إعم و > و ).طس في الإعلان عن مصفوفة ما. 


my $nom ; var nom ; 
my @nom ; var nom=new Array(8) ; 
تعريف مصفوفة صم مكونة من 8 عناصر _ _ لاتحتاج لتحديد عدد عناصر المصفوفة‎ 
في اهم‎ 
my @nom= var nom=new 
("Mohammad","Hamza","Jama | Array[" Mohammad"," Hamza","Jam 
0): al"]; 


الفرق بين 1إمم و أمذإميهvهز‏ في الإعلان عن متغير ما أو مصفوفة ما. 


print @var ; 
ممائل لي‎ 


print ($var[0], $var[1],$var[2],$var[3]....,$var[n]) 
© لإظهار جميع القيم الموجودة في المصفوفة و‎ 


print @var[2,6,8] ; #print these (2,6,8) 
مماثل ل‎ 
print ($var[2],$var[6],$var[8]) #print the(1),the(2),the(3) 


يظهر فقط العناصر التي حددنا لها المؤشرات (×٥لم])‏ الدالة عليها 


* في 1مم نشیر لل عمطیھ8 ب % 


my %var ; #(key1, val1, key2, val2 ...) 


"Scalars! "ArrAYS' 


۳ 


إلى هنا أضن أننا أخدنا فكرة أولية عن 1إمم » وبالتأكيد الآن أصبحت تدور عدة 
أسئلة في دهنك» هذا جيد » هدا ما نريد أن تصل إليه في هدا الجزء . 


2 ) تعلیق (cone nt†(‏ 
هناك إمكانيتان لكتابة تعليق» إما كتابة تعليق في سطر واحد» أو في عدة أسطر. 
بالنسبة لكتابة تعليق في سطر واحد نضيف # في أول الكودء مثلا: 


# print ‘mmmmm’ ; 


# Larry Wall 
سيتجاهل هذان السطر لأنهما مسبوقان ب#‎ perl المفسر‎ 
في حالة أننا نريد كتابة تعليق في عدة أسطر» نكتب ما نريد أن يتجاهله 1مم بين أ0م= و الاع=‎ 
متلا:‎ 
=pod 
Comment 


Larry Wall 
=cut 


3)العمل مع القيم البسيطة 


numbers (3-1 


بالنسبة ل1إمم » كما رأينا سابقا لاتحتاج أن تقوم بتعريف نوع المتغير أي هل (أو إععم)م1 أو ماطسمل أو....). 
numb‏ التي يتعامل معها [إمم على العموم هي integers‏ ڪ floating-point‏ 


125 # integer 

- 1 # negative integer 

12345. 67 # floating point 

6. 02E+023 # scientific notation yiت‎ 6.02x10 7 
Oxffff # hexadecimal 

0377 # octal 


4 294 967 296 # underline for 1egibi1ity (Iرقلاl‎ Jليهست (من أجل‎ 


الآن لنقم ببعض الأمثلة لإظهار أو طباعة الأرقام في 1إعم: 


use warnings ; 
use strict ; 
print 4, -6; 


هنا لو رأينا الكود لقلنا أننا سنحصل على: 


C :>perl nbr1.pl 
4 -6 


C:> 


لكن في 1إعم يتجاهل (ءءهمء) الفراغ ولهدا سنحصل على: 
C :>perl nbr1.pl‏ 


4-6 
C:> 


بدون طباعة (٥٥همء)‏ فراغ بین 4 و 6- 


--- قم بتعديل البرنامج السابق ليكون كالتالي: 


use warnings ; 
use strict ; 
print 4," '",-6; 


ا 


لهذا سنحصل علی: 


۔۔۔ مثال آخر 


على العموم إستعملنا ( ) لتسهيل قراءة الكود 


Binary,Hexadecimal, And octal Numbers 


هنا سنكتب برنامج بسيط لنوضح عمليا كيف نحول الأنضمة الأعداد الثلاثة إلىع[هصاءمل . 


بعد تنفیده نحصل علی: 


C :>perl nbr2.pl 
4 -6 


C١ :> 


# perl nbr3.pl 
use warnings ; 
use strict ; 


print 1 _ 234_567_890,'"'" '",-8 ; 


C :>perl nbr3.pl 


1234567890 -8 
C:> 


#nbrSy1.pl 
use warnings ; 
use strict ; 

print 255, "\n"' ; 
print 0377, '"'\n"" ; 


print 0b11111111, ''\n''; 


print OxFF, ''\n''; 


C:\>perl nbrSy.pl 
255 
255 
255 
255 


C:\> 


يمكن أن نستنتج من هذا المثال أنه يمكننا كتابة نفس العدد (لدينا هنا255) إما كعدد عادي إن صح التعبير الذي نكتبه بدون 
إضافات أو ك8¡,ary‏ و ا2ص 1ءeلe×xa‏ 1و اه†ءه التي نلخص كيفية كتابتها بالتالي: 


0 (صفر ) من أجل [ھاء0. 
من أجل راھہ1ط. 
.hexadecimal Jجأ ja 0x‏ 


أو يمكننا إستعمال الدوال التي تتيحها لنا 1مم : 

c0‏ من أجل [ھاءه 

hexadecimal Jج‎ ja hex( 
0)0 بالنسبة لرإهم1ط لاتوجد دالة خاصة حسب علمي لكن يمكن إستعمال‎ 


مثال بالنسبة لهذه الدوال: 


#!/usr/perl/bin 
#nbrSy2.pl 
use warnings ; 
use strict ; 


print 'hex('ff'')=',hex(''ff'"') ,''\n"'; # hexadecimal ---- anjl غير‎ x0 هنا إظافة‎ 
print 'oct("377")=',oct("377") ,"'\n"'; # هنا إظافة 0 غير ملزمة۔-------- اا0‎ 


print 'oct('0b11111111'')=' ,oct("'0b11111111""), '"'\n''; # binary 


هنا إظافة ط0 ملزمة 
بعد تنفیذ آم .۲۹۶۷2طام سنحصل علی: 
C:\>perl nbrSy.pl‏ 
hex("'ff"')=255‏ 
oct('377'"')=255‏ 


oct('0b11111111'')=255 


C:\> 


String(3-2 


3.) المحددتین (") و(') ‏ 

في 1إءم نضع سلسلة الرموز (ع,اع)ء) أو(سلسلة حروف) بين محددتين : double quoted‏ )"( ڍڪ single quoted‏ 
()ءمع العلم أنه ليس لهما نفس الدور أو الوظيفة . 

*فالبنسبة للمحددة (") )0سي عاطاuمل‏ » المحتوى("الذي يوجد بينهما ") هو مفسر( أو أنه سيفسر من ۲1عم أثناء 
الطباعة). 

*أما البنسبة للمحددة () Qع٤0اي‏ ماعوزو فالمحتوى (' الذي يوجد بينهما ') ليس بالضرورة مفسر (۲1٥م‏ سيعتبره كأنه 
سلسلة حروف - ع١زع)ء‏ -(سيقوم بطباعته في الأغلب)) . 

هذا بشکل مختصر » لنری معا هذا المثال: 


#!c:/perl/bin/perl.exe 

#string1.pl 

use warnings ; 

use strict; 

print "\tThis is a double quoted string.\n"; 


print '\tThis is a single quoted string\n!'; 
عند تنفيذه سيظهر التالي:‎ 


C:\bperl string1.pl 


This is a double quoted string. 

\tThis is a double quoted string.\n 
و1ہع[e‎ )'( وہ عند إستعمال (')dعoںې ٥1طاںہ بینما لم یتم تفسیر هما عند إستعمال‎ ٤ نلاحظ آنه تم تفسیر کل من‎ 
بل تم طباعتهما.‎ uote 


لنلاحظ هذا المثال أيضا: 


#!/usr/perl/bin/ 


# string2.pl 
use warnings; 

use strict; 

my $name="mohammad"; # mohammad الإعلان عن متغير سميناه بعمر هد وأعطيناه القيمة‎ 
print '"this is double quoted...Name=$name\n"'; 

print 'this is single quoted...Name=$namel\n' ; 


C:\>perl string2.pl 


this is double quoted....Name=mohammad 


this is single quoted....Name=$name\n 
المتال واضح: (لاحظ المتغير مء $14 في كلتي الحالتين) (راجع التعريف البسيط فوق)‎ 


مثال آخر 


Ff string3.pl 
use warnings; 

use strict; 

print "this is \ "double\'' quoted....\0=\0ss\n"'; 
print 'this is \'single\' quoted....\\0=\0ss\n'; 


عند تنفيذه سيظهر التالي: 
C:\>perl string3.pl‏ 


this is '"'double'" quoted....\0= ss 
this is 'single' quoted....\0=\O0ss\n 


Character null يiaت‎ \0 

الذي نلاحظه هنا » عند استعمال dعاoںې‏ عاطuهل‏ (")وأرضنا أن لايفسر ١6۲م‏ (متلا كما لدينا في المتال) 0| نكتب 
أممها | أي هكذا 0| . 

متلا: لا نرید أن یفسر ۴۲۱م ١‏ (أُي سطر جدید ۴٥۵‏ ٥اا‏ ) نکتب |۱١‏ 


نفس الشيء»ء لكي نظهر أو ليتم طباعة $ ( أو @ أو " وهكذا....) بدون أن يفسرها 1إمم نسبقها بي | هكذا 8|.(نحن هنا 
نتكلم في الحالة التي نستعمل فيها " إع†مu‏ م1طسمك » لانه عند إستعمال لءمںي م1عمء ' فهي (أي $) ومثيلاتها لا يتم 
تفسیر ها من طرف ۲1ءم اصلا. 


تذکر: 


Hexadecimal Octal الرمز تعليق‎ 

10 10 NULL(NUL) \0 
\xOA 1012 (۴ا)سطر حدید‎ ٣ 
\xOD \015 Carriage return (CR)  \r 
\x08 1010 حذف حرق للوراء ( یسار)‎ Backspace)BS() | 

\xOC 1014 حدیدة‎ ةحغفصform‎ feed)۴FF۴) |۴ 
\x07 1007 al‌erا )ا (LاBE)تصدر صوت‎ 

\x09 \011 ;مسافة حدولة‎ Horlizontaا‎ Tab)(HT) \t 
x20 040 space \s 


)اu تحول الحرف الإنجليزي الأول (الذي يلي‎ | u 
أي كبير‎ upper-case إلى‎ 

1| تحول الحرف الإنجليزي الأول (الذي يلي !|) 
إلى case-werسدا‏ أي صغير 

| تحول مجموعة الحروف الإنجليزية (التي تلي ) 
upper-case JJj \U‏ آي كبيرة حتی أول \E‏ 


1| تحول مجموعة الحروف الإنجليزية (التي تلي ) 
ا] إلی عcase-rمweدا‏ اي صغيیرة حتی اول ۱)۴ 
۵ تنصص ال ۲مEX×p‏ arاuوe‌R‏ حتی أول ۱)۴ 
|٤‏ انهاء کل من 1| و 1| و ۱٩‏ 
و( | ) مع أي شيء آخر تعني ذلك الشيء نفسه وليس معناه وفائدة هذا مثلا إذا أردت وضع شيء بين علامة اقتباس متلا 
اكتب ;"۸ .ع print "This ¡is a double quoted str1۸‏ كما ذکرنا سابقا 0 


print "\Ularry wall. | n "; : مثا‎ 
LARRY WALL. 
print "\Ularry w\Eall.| n"; : Jلlتم‎ 
LARRY Wall. 
print "\ularry \uwall. | n"; : Jاiم‎ 
Larry Wall. 
: )'( )"( بدیل المحددتین‎ ) 3 


بدل إستعمال المحددات ()و(") يمكننا إستعمال على التوالي ال (/ /q)و‏ (2 /44) : 
أمثلة للشرح: 


#!/usr/perl/bin/ 
#string4.pl 
use strict ; 


use warnings ; 
print qq/Salam ana ''Muslim'' auhibo 'Rassaul Allah'\n/ ; 
print q/Salam ana "Muslim'' auhibo 'Rassaul Allah'\n/ ; 


بعد التنفيد نحصل على: 


C:\>perl string4.pl 
Salam ana '"'Muslim'' auhibo 'Rassaul Allah" 


Salam ana '"'Muslim'' auhibo 'Rassaul Allah'\n 
C:\> 
فإننا نستخدم (") و (') بشكل عادي بدون إستعمال(|) على عکس ما کنا نفعل سابقا‎ ٩// نلاحظ آنه عند إستعمال //ډې او‎ 
› )' '( عندما نستخدم أحد المحددتين () أو (") في الطباعة . دون هذه الحالة تقريبا يمكن القول أن //ي تعوض‎ 
( ( تعوض‎ qq// بینما‎ 
.¶4// ٩// تقريبا هذا هو الفرق بين المحددتين () (") و‎ 


مثال أخرى: 
use strict ;‏ 
use warnings ;‏ 
my $variable= "Mohammad'"" ;‏ 
print qq/ "double quoted''\040'single quoted' \$variable= $variable\n/ ;‏ 
print q/''double quoted''\040'single quoted' \$variable= $variable\n / ;‏ 
بعد التنفيد نحصل على: 


C:\>perl string5.pl 

"double quoted'"" 'single quoted Mohammad" 
"double quoted''\040'single quoted $variable'\n 
C:\> 


في حالة أردت طباعة (/) نكتب 


use strict ; 

use warnings ; 
print qq/ V \n/ ; 
print q/ V\n/ ; 


سيطبع التالي: 
C:\>perl string6.pl‏ 
1 
/\n‏ 
C:\>‏ 
کے لا يرتبك مفسر ۲1٥م‏ (ویعتبر / لے أضفت هي لإغلاق //٩)نضيف‏ ۸( قبل (/) آي هکذا(۷). 
أو تغير هذه الكتابة //و إلى (مثلا) اا » لأن 1مم تتيح لك تغيير / إلى | أو # أو.. 


لنرى هذا المثال 


use strict ; 

use warnings ; 
print qql / \nl ; 
print ql / \nl ; 


print qq# \nSalam ana '"'"Muslim'"" auhibo 'Rassaul Allah'\n# ; 
print q#Salam ana ''Muslim'" auhibo 'Rassaul Allah'\n# ; 


print qq< \nSalam ana "Muslim'" auhibo 'Rassaul Allah'\n> ; 
print q<Salam ana ''"Muslim'' auhibo 'Rassaul Allah'\n> ; 


print qq(\nSalam ana ''Muslim'" auhibo 'Rassaul Allah'\n) ; 
print q(Salam ana "Muslim'" auhibo 'Rassaul Allah'\n) ; 


C:\>perl string7.pl 

/ 

/n\ 

Salam ana '"'Muslim'' auhibo 'Rassaul Allah" 
Salam ana '"'Muslim'' auhibo 'Rassaul Allah'\n 


Salam ana '"'"Muslim'' auhibo 'Rassaul Allah" 
Salam ana "'"Muslim'' auhibo 'Rassaul Allah'\n 
Salam ana "Muslim'' auhibo 'Rassaul Allah' 
Salam ana '"'Muslim'' auhibo 'Rassaul Allah'\n 
C:\> 


Here-Documents(3.2.3 


هذه الوسيلة تتيح لك كتابة مجموعة كبيرة من النصوص داخل برنامجك . 
لنرى هذا المثال التوضيحي: 


use warnings ; 
use strict ; 
my $forum=q/ www.arabteam2000-forum.com/ ; 
print<<EOF; 
This is ''Here-Documents". 
\$forum=$forum . 
\ 
\\t 
\t Hello, world . 
EOF 


C:\>perl string8.pl 


This is ''Here-Documents'"". 
ŞSforum='www.arabteam2000-forum.com'. 


Hello, world 


يمكنك بدل کتابة 0۴٤(e|ا¡۴‏ 0۴ ۵"ع) أي کلمة آخر بدون ٥٥ه4م.‏ 


نرى أن لهذه الطريقة نفس خاصية كل من (") و // من حيث أن 1مم يقوم بتفسیر رموز ۸5٥11‏ إذا أسبقتها ب(١)‏ 
وأايضا الرموز الاخرى مثل $ > @ .. و أيضا مثل )"( qq// s‏ إذا أردت عدم تفسیر هذه الرموز من قبل 1مم أثناءِ 
طباعتها قم بوضع (|) قبل أحد الرموز تلك. مثلا 8| ليتم طباعة §» بينما هذا المثال |١٤‏ لطباعة ٠ء‏ أما هذا || فهو لطباعة 


ا 


3) الإعلان عن المتغيرات 


ملاحظة. 

متغیر ھاوعء يمكن أن يأخذ مثلا: 
6 

2.562585 


"hello word" 
بدون تحديد نوع المتغير‎ 


أولا يجب أن نذكر ثانيتا أن متغير إهاهءء يستطيع أن يحتوي تقريبا على أي شيء» فهو إن صح التعبير لا يفرق بين 
الاع اسف وا عاذت الفا ار ما سرون غ ار من ا ا شرح ا م تی ایو کا ری 


لاحقا. 


* للإعلان عن متغير إوهاهءء أكتب إسمه (الذي إخترت له) مسبوق ب$. 


* في 1مم أنت غير ملزم بالإعلان مسبقا على متغير ماء يمكنك إستخذامه مباشرة في العمليات التي تقوم بها. 
* يوجد خیار يسمح لك بفرض syntax‏ دقیق(اء!1ا†ء) « في هذه الحالة يصبح ملزما لك الإعلان مسبقا عن المتغيرات»› 


من أجل ذلك ومن أجل حماية أكتر» أكتب في بداية البرنامج: 


#!/usr/perl/bin/ 


ملاحظة: 


أمثلة للأسماء الجائز إعطائها للمتغيرات: 
ŞA_Scalar_Variable;‏ 

$scalarNo8; 

$_private_scalar; 


أمثلة للأسماء التي لا يجوز إعطائها للمتغيرات: 
لاتضع رقم في او lلۈwم‏ # $8bit_characters;‏ 
لاتضع أي علامة في اخر الإاسم # şcash_i¬_£;‏ 


use strict ; 


لاتستعمل - في الفصل بين كلمتين ولا تستعمل €2aCصsp<‏ # $long-Var;‏ 


هناك تقريبا كلمتي مفتاح للاإعلان عن متغیر ما (مھما کان ٣ھ‏ اھcء,Hash,array)‏ هما my‏ و our‏ [متثل في vb‏ 
D1m(‏ و عiااuم)].‏ غالبا ما نستخدم رص . 
متلا: من أجل الإعلان عن متغير أعطيناه إسم هس نكتب التالي: 
use warnings;‏ 
use strict;‏ 
my $var;‏ 


use warnings; 
use strict; 
my $var="Mohammad'"'; # string sibe lik 
print "'"$var\n''; 
$var=44; # هنا أعطیناہ )ہا‎ 
print "$var\n'"" ; 
$var=4.1254; # float oنيطع هنا‎ 
print "'"$var\n"' ; 
بعد التنفيد:‎ 


C:\>perl var1.pl 
Mohammad 
44 


4.124 


C:\> 
لمتغير ثلاث قيم مختلفة من حيث النوع بدون أن نحدد له نوع | لمتغير.‎ ١ نلاحظ أننا قمنا باعطاء لنفس‎ 


مثال آخر 


use warnings; 

use strict; 

my ($var,$sum) ; 
$var=44; 

print '"44+4=$var+4\n''; 


print '"44+4='"", $var+4,'"\n"" ; 


$sum=$var +4; 
print '"44+4=$sum\n''; 


C:\>perl var2.pl 
44+4=44+4 
44+4=48 
44+4=48 


C:\> 


إذا أردنا الإعلان عن متغيرين أو أكثر في وقت واحد نجمعهما بين قوسين ونفصلهما بفاصلة هكذا; («رںuء؟,إva$) my‏ 
نفرض أننا أرضنا أن نعطي قيم لهذه المتغيرات في وقت واحد أو في سطر واحد في هذه الحالة نكتب 

my $sum=0 ; my $var=44 ; هده الكتابة تكافىئ‎ my ($var,$sum)=(44,0) ; 

إذا تم وضع عملية حسابية مابين (") أو ما يشبهها سيتم طباعتها بشكل عادي ولن يتم حسابها. 


الأن لنلاحظ هذا المتال الذي يعالج إشكالية أخرى: 


use warnings ; 
use strict ; 

my $var= "Moha"" ; 

print ''my name is $var mmad\n'"' ; # print « my name is $varmmad » ; is fulse 
print ''my name is ${var}jmmad\n'"" ; 


C:\>perl var4.pl 
my name is Moha mmad 


my name is $Mohammad 


c:ا<‎ 
TERETE OE TTT TEE OTTO RIT TT 
تغير ما نضع إسم هذا المتغفير بين).‎ 


ملاحظة: 
إعطاء نفس القيمة لعدة متغيرات في نفس السطر 

my ($var,$k,$b,$z) ; 

Şvar=($k=$b="Mohammad"),($z="lachg") ;‏ 
print("\$var=",$var,"\n\$k=",$k,"\n\$b=",$b,"\n\$z=",$z,"\n") ;‏ 
سيتم طباعة التالي: 


$var=Mohammad 
$k=Mohammad 


$b=Mohammad 
$z=lachg 1 
تأاخد قيمة مخالغة "وھا"‎ $z بينما‎ "M0۸2٣" 2d" تاخد نفس القيمة‎ $اar,$k,$‎ 


Standard output (4-3‏ 
من أجل طباعة قيمة ما على الشاشة نستعمل في الأُغلب ٤٣١۲م‏ أو printf‏ . 


print (1.4.3‏ ,„ 
tصاام‏ تظهر نص او سلسلة نصوص. ترجع 1 اي علا٣)‏ في حالة النجاح. 
متال: 


1.1 


use warnings 
use strict ; 
print ''Hello world\n"" ; 


C:\>perl block1.pl 
Hello world 
C:\> 
المتال أضنه واضحا.‎ 
printf (2.4.3 


بالنسبة ل۴٤١‏ آ٣م‏ فهي أيضا لطباعة المعلومات على الشاشة لكن بشكل مرتب أو أكثر 
تخصيصا (إن صح التعبير)» على العموم فإن كنت مررت على لغة » فإن هذه الدالة ستكون 
مألوفة لك. 

مثال: 


use warnings ; 
use strict ; 

my ($var,$nbr)=(2.53241,526) ; 
printf ('\$var=%.2f \n'"",$var) ; 
printf ('"\$var= %.0f \n'"",$var) ; 
printf ("'\$nbr=% d\n'"",$nbr) ; 


C:\>perl output2.pl 
$var=2.5 


ŞSvar=3 
Ş$nbr=526 


لاحظ هذه الصورة التوضيحية: 


C:\> 


Yy name is Mohammad,I'm 23 years old 


أيضا أنضر إلى هذا الجدول : 
رمز 
0/od‏ 
0/ou‏ 


0/of 


/oe 


°/og 


0/00 
0/oX 
0%/o0b 
0/oX 
°/oE 


0/os 


الوصف 
عدد صحيح دو إشارة (+) و)(-( (decimal)‏ 
عدد صحیح بلا إشارة (-) ( ۹٥ہ‏ واsئہںu‏ 
decimal.(integer‏ 
عدد كسري»(عدد الأرقام التي تأتي بعد 
الفاصلة هو تابت). 
لكن يمكنك أن تحدد عدد الأرقام التي ستطبع 
أو ستظهر على الشاشة بعد الفاصلة 
هكذا: 2۴.% حيث الرقم 2 يمتل عدد الأرقام 
بعد الفاصلة التي تريدها أن تطبع 
ملاحظة: في المثال السابق كتبنا %.0f‏ 
الذي بسببه تمت طباعة 3 بدل 2 الذي کان 
منطقيا لأننا أردنا طباعة صفر رقم بعد الفاصلة. 
الرقم الذي لدينا هو 2.53241 .لاحظ أن 
الرقمين الذين بعد الفاصلة هما 53 (بسبب أن 
هذا الرقم أكبر من 50) لهذا تمت طباعة 3 
عدد كسري(عدد الأرقام بعد الفاصلة يطبع كما 
أدخلته) 
عدد الأرقام التي تأتي بعد الفاصلة في كل 
من %f‏ و9 %e‏ اخسن أوأكثر من %9 (علی 
العموم). 


عدد صحيح بلا إشارة(-) . بالاھاcه‏ 
عدد صحيح بلا إشارة )-( .« HexadecimalJlı‏ 
عدد صحیح بلا إشارة (-) بال bin2۷‏ 
مثل ×% لکن بحرف کبیر 
مثل %8 لکن بحرف کبیر 
يمكنك تحديد عدد الحروف التي تريدها أن 
تطبع (حثی 0€٥٤3م5‏ یحسب). 
مثلا لدينا اللسلسلة النصية الثالية "اا۸" 
عند إستعمال 25.% سيطبع ۳۴ . إذا الرقم 2 
يدل على عدد الأرقام التي يجب أن تطبع 


0 لطباعة إشارة النسبة المئوية. ل(لإلغاء 
0 عمل% ( إن صح التعبیں)) 
°/op‏ المؤشر أو llعjlgi (Pointer)‏ 


هنا سنتطرق لهذا المثال لنستنتج منه بعض الخاصيات: 


use warnings ; 
use strict ; 


يطبع فراغ واحد بين القوس و88 (88 )<----------# ; printf "(% d)\n'"",88‏ 
نفس الشيئ هنا (88 )< # ; printf "(% d)\n\n",88‏ 


printf '"'(% +d)\n"",88 ; 
printf '"'(% +++d)\n\n"",88 ; 


printf '"(%o)\n"",88 ; H =(130 ۰‏ 
2 إظافة 4 یتم طباعة 0 في أول العددد 10 Ht----------<(‏ و printf "(%o#o)\n\n'"",88‏ 
الذي يدل على أن هذا العدد ينتمي إلى إواءه 


printf ''(% x)\n"",88 ; 1 ><)58) ٣ 
printf '"(%o#x)\n\n'"",88 ; === <)0×58( هنا یتم طباعة العدد 58 مع الرمز×0 الذي‎ 
hexadecinal يدل على أن 58 ينتمي إِذى‎ 


printf "(%o#X)\n\n'"",88 ; f==-------- >)0×58)( )upp‌٥-cھsع( نفس شيء فقط × حرف کبير‎ 
printf ''"(% b)\n'"",88 ; #----------<)1011000( 

هنا للدلاله على رar۾ہiطظ‏ (1011000ظ0() printf '"(%o#b)\n\n'"",88 ; H‏ 

هنا بما أن سلسلة النصية تحتوي فقط على (0ااء۴ )< -# printf "'"(%10s) \n"", "Hello";‏ 


5 حروف ونحن أعطينا 0 سیتم إظافة 5 مسافات أو فراغات و لتكملة الرقم 10 وهذا من جهة يمين 
السلسلة النصية لأن 10 موجبة 


نفس الشيء إلا أن ذلك سيكون على ( مااع ]])<۔۔۔۔۔۔۔۔۔-# ; printf ''(%-10s) \n'",''Hello'""‏ 
يسار السلسلة النصية وهذا لأن العدد 10 سالب 


نفس الشیئ لکن هنا أضفنا 0 قبل۰10 (0[[ء٤00000۲)<‏ ------# ; printf '"(%010s) \n'"",''Hello''‏ 
في هذه ا TNE‏ 


عند التنفيد نحصل على: 


C:\>perl output3.pl 


(88) 
)88( 


(+88) 
(+88) 


(130) 
(0130) 


(58) 
(0x58) 


(0X58) 


(1011000) 
(0b1011000) 


(Hello ) 
( Hello) 


C:\> 


من خلال هذا المثال يمكن أن نكتب 
فراغ (عع2م§) => بادئة خاصة بالأعداد الموجبة ( ععهمء واحد فقط) 
> بادئة خاصة بالأعداد الموجبة 
# > بادئة خاصة بضمان جلب (0) من أجل أي Hexadecimal Jج ja (0x) «< octal‏ 
و Binary Jج ja (Ob)‏ 
ت > بادئة تتحكم في هامش اليسار 
0 > يعني إستخدم الأصفار ولا تستخدم وعع2چمS‏ من أجل التحكم في هامش اليمين 


الوصول إلى البرامتر عن طريق إختيار علامة أو مؤشر(×عل,]) دال عليه 


: لنرى هذا المتثال‎ 
use warnings ; 
use strict ; 
printf (''(%o 2\$d \$d)\n\n'",6,8) ; # .)8 6( لتحديد الباراميتر الذي تريده أن‎ 


يطبع بدون أن تغير ترتيبهم O TT‏ 
هنا قمنا بإضافة ( ١‏ ) لكوننا إستعملنا (") ولهذا كتبنا(4ا2) 


printf ('(% %e1$d)\n',6,8); # >8 6(‏ 
نفس الشيء › فقط هنا بما أننا إستعملنا )١(‏ فلهذا لم نحتاج إلى إضافة )١(‏ 


print '"\ہ''‎ j; لترك سطرين فارغين#‎ 
printf ("(%3Sd %d _%1\8d) \n",6,8,44) ; 


C:\>perl output4.pl 


ملاحظة :هناك أيضا الدالة ۴أ١آ۲مs‏ 


Standard input (5-3 


من أجل القراءة من لوحة المفاتيح نستعميل 51١<‏ S1؟>‏ 
متال: 


use warnings ; 

use strict ; 

my $in ; 

print ''"Please enter value: '" ; 
$in=<STDIN> ; 

chomp($in) ; 

print "\$in=$in "" ; 


C:\>perl input1.pl 
Please enter value : 44 


$in=44 
C:\> 


هذا البرنامج هو بسيط » يطلب من المستخدم بإدخال قيمة ما بعدها يقوم بطباعة القيمة التي قام المستخدم 
بإدخالما أليا. 

نفرض أن المستخدم قام بكتابة الرقم44 فبعدما يقوم بالضغط على 6۸١‏ في لوحة المفاتيح» عندها سيأخذ 
المتغير(313۲ءء) $1١‏ في الحال القيمة "441۸"» إفترضضنا أننا لا نحتاج إلى رمز الإنتقال إلى سطر جديد(١)‏ لهذا 
إستعملنا الدالة ۸0۳١)‏ التي تقوم بإزالة الرمز الذي يؤدي إلى سطر جديد و الموجود في آخر الجملة. 


ملاحظة : نحصل على رمز سطر جديد بالضغط على المفتاح ٥۸١‏ في لوحة المفاتيح. 


(یمکن إسنعمال pهطc‏ بدd chomp‏ ( 


Blocks (6-3‏ 
التعامل مع الءock‌Bl‏ 
متال: 


use warnings ; 
use strict ; 


my $var=4 ; 

print '"\$var =$var\n"" ; 

{ 

print '"'{\n"" ; 

print ''This is block e 
my $var=8 ; 

print '"\$var n, 

} 


print '"'"\$var =$var\n"' ; 


C:\>perl block1.pl 
4 


{ 
This is block scoped 


المعران الى تم الاعلان عا ١ال‏ 6اا قى قارا ص ال د عملا ا 
)اط و لیست قابلة للإستعمال إذا وجدت خارج مجال ال‌)ع‌هاط . 


use warnings ; 
use strict ; 


{ 
print '"{\n"" ; 


print ''"'This is block scoped\n'"'; 


my $var=4 ; 
print "\$var=$var\n}\n"' ; 


print "\$var=$var\n"" ; 


هنا يوجد خطأء لم يتم التعرف على المتغير الذي قمنا بالإعلان عنه فقط داخل مجال )عهاط. 


use warnings ; 

use strict ; 

my $var=4 ; 

print '"\$var=$var\n'" j; #1 
{ 
print '"'{\n"" ; 

print ''This is block scoped\n"; 
$var=8 ; # 

print yT : 


print '"'\$var=$var\n" ; 


C:\>perl block3.pl 
$var=4 


1 
This is block scoped 


Şvar=8 
{ 
Şvar=8 
C:\> 


هنا لم نقم بالإعلان عن المتغير داخل مجال )0اط و إنما قمنا بإعطائه قيمة جديدة فقط »لهذا 
أخذ المتغيراة5۷ القيمة 8 عند طباعة $۷2۲ فى المرة الثالثة. 


l(7.3لغيıمa undef‏ 
هذه قيمة خاصة تعني(۴۵"١|۴٥ل"ن)‏ أي (غير محدد أو مبین ....). 
هي كذالك (عںاة۷ أااة؟عك) القيمة الإفتراضية التي تأخذها المتغيرات ك١ةاةءء‏ إن لم تكن قد 
أعطيت المتغفيرات قيمة ما مسبقا. مثلا 
my Ş$var ;‏ 
هذه الكتابة مماتلة ل 
my $var=undef ;‏ 
نستطيع أن نعطي هذه القيمة لمتغير ما بعد أن نكون أعطيناه قيمة مسبقة مثلا: 
rl / bin/‏ 
#undef1.p|‏ 
use warnings ;‏ 
use strict ;‏ 


my $var=44 ; 
print $var ; 
$şvar=undef ; # undef($var) aبliکلl|l او هذه‎ 
print $var ; 


C:\>perl undef1.p|l 


Use of uninitialized value in print at C:\p.pl line 9. 
44 
C:\> 


الإنذار الأول الذي يذل على أن المتفير الذي تريد طباعة محتواه لم تقم باعطائه قيمة ما 
هذا الإنذار ظھر لکوننا قمنl‏ بlاستeعمJl use warnings‏ 


إذا إحتجت أن تفحص متغير 13۲٤ء‏ ما هل به قيمة لاتساوي قيمة عل ٣ل‏ » إذا في هذه الحال 
نستعمل هذه الدالة d٩ع٥ہ‏ آ۴م متلا 
f)defined)$yar......‏ هذا الفغحص يعطي صحیح (عں۲ا) إذا کان $۵٣‏ به قيمة ما تخالف 


undef 
ملاحظة:‎ 

......eلun=! 1f)$var‏ هذه الكتابة خاطنة 
Operators (8.3‏ 


تعتبر المعاملات هي الوسيط الآأساسي للتعامل بين قيم المتغيرات. 
وتنقسم المعاملات إلى عدة أقسام كما يلي: 


Arithmetic Operators 
Bitwise Operators 
Concatenation Operators 
Comparison Operators 


Arithmetic Operators (1.8.3 


الرمز دلالة 
# من آحل عملية الجمع (85+ر$=×$) 
ِ من احل عملية الطرح . 
(-) أيضا تستخدم للدلالة على عدد سالب (لخ-26- =×$) 


من احل عملية الضرب (z$*ر$=×$)‏ 

/ من احل عملية القسمة (2/22=×$)----> 0.0909090909090909 
/ من أحل ماuله"‏ (باقي قسمة عدد )(5×=2°022) ----->< 2 

16 <------ ($x=4**2) exponentiation JÎ من‎ +X 
Auto-increment i 


تزايد بواحد قبل إرحاع النتيجة. متال )++$y(‏ . 


يمكن أيضا كتابتها على هذا الشكل (++$) لكن هنا لا يتم إرحاع 
القيمة التي أخذها المتغير (إ5). 
تكافئ تقريبا هذه الكتابة $۷+1=ر$ 
Auto-decrement‏ 
تتناقص بواحد قبل إرحاع النتيجة. 
مثال:(5۷--) اه )5y--(‏ (نفس الملاحظة السابقة عند إستعمال++) 
تكافئ تقريبا هذه الكتابة 1-¥$=ر$ 


لنرى معا هذه الأمتثلة: 


3 1 Opera 
use warnings ; 
use strict ; 


my $var=4 ; 


print "+ +\$var=", ++$var, "\n" ; 


C:\>perl Numeric Operators1.pl 
++$var=5 


C:\> 
. $a =4+1 أي‎ $۷2 =$۷a+1 المتال واضح تمت زيادة واحد اي تم تطبيق هذه العملية‎ 
++$۷2۲ وبهذا تم إختصار الكتابة السابقة بالتالي‎ 


مثال لحالة تانية: 


use warnings ; 
use strict ; 


my $var=4; 


print "\$var++=", Şvar+t +, "\n" ; 


C:\>perl Numeric Operators2. pl 
Ş$var++=4 


C:\> 
هنا ريما كنت تنتظر أن يطبع العدد رقم 5 لكن كما قلنا سابقا . الذي حصل هو أن المتفير $۷۲ أخد العدد 5 لكن‎ 
لم يتم إرحاعه. قم بطباعة $۷2۲ مرة تانية لترى النتيجة.‎ 
أنظر الأمثلة التالية لتتضح الفكرة‎ 


نفس المتال لكن هنا سنطبع المتغير مرتين متتاليتين » لنرى النتيجة 


use warnings ; 
use strict ; 


my $var=4; 


print "\$Şvar+ +=", Şvar+t+, "\n" ; 
print "\$var++=", Şvar+ +, "\n" ; 


C:\>perl Numeric Operators2. pl 
Şvar++=4 


Şvar++=5 


C:\> 
بالنسبة للمرة الأولى التي قمنا فيها بطلب الطباعة وقع كما قلنا أي عند تنفيذ التالي‎ 
print "\$var++=", Şvar++, "\n" ; 
5 يحصل التالي سيتم طباعة العدد 4 وفي نفس الوقت سياخذ المتغير $۷2۲ القيمة‎ 


أما بالنسبة للمرة الثانية أي عن تنفيذ التالي: 
print "\$var+ +=", Şvar+ +, "\n" ;‏ 


مثال لحالة آخرى: 


use warnings ; 
use strict ; 


my ($var,$num)=(4,2) ; 


Ş$num= + +$var ; 
print "\$num=", $num, " \$var=", $var, "\n" ; 


C:\>perl Numeric Operators3.pl 


$num=5S Ş$var=5 
C:\> 


المتال واضح . ما الذي حصل؟ 

عند تنفيذ التالي: 

Ş$num= + +$var ; 

سيتم إضافة العدد واحد إلى القيمة التي توجد لدا المتغير $۷3۲ ومنه $۷3۲ سيساوي 5 في نفس الوقت سيتم 
إرحاع النتيجة » إذا هذه النتيجة التي تم إرجاعها هي التي سياخذها المتغير $11۳ إذا $٣1۳‏ سيساوي 5 


مثال لحالة آخرى: 


use warnings ; 
use strict ; 


my (Ş$var,$num)=(4,2) ; 


$num=$var+t + ; 
print "\$num=", $num, " \$var=", $var, "\n" ; 


C:\>perl Numeric Operators4. pl 


$num=5S Ş$var=5 
C:\> 


المثال واضح . ما الذي حصل؟ 
سيتم إضافة العدد واحد إلى القيمة التي توجد لدا المتغير $۷3۲ ومنه $۷3۲ سيساوي 5 بينما لن يتم إرجاع 
النتيجة » إذا بما أنه لم يتم إرجاع أي قيمة. فإن المتغير $1۳ سيساوي 4 


مثال لحالة آخرى: 


نناقش هنا الحالة التي نستعمل فيها ++ مع سلسلة رموز أو حروف 


use warnings ; 
use strict ; 


my Ş$var ; 


print "+ +(\$var=\" 99\")", ++($var= "99"), "\n" ; #100 
print "+ +(\$var=\"a0\")", ++($var= "a0"), "\n" ; #al 
print "+ +(\$var=\"Az\")", ++($var= "Az"), "\n" ; #Ba 
print "+ +(\$var=\"zz\")", ++($var= "zz"), "\n";  #aaa 


C:\>perl Numeric Operators5. pl 
++(\Ş$var=\" 99\") =100 
++(\$var=\"a0\")=a1 


++(\$var=\"Az\")=Ba 
++(\$var=\"zz\")=aaa 


C:\> 
المثال واضح . ما الذي حصل؟‎ 


print "++(\$var=\" 99\")", ++ ($var= "99"), "\n" ;‏ 
يتم زيادة واحد إلى 9 نحصل على 10 نكتب 0 ونحتفظ بواحد. هذا الواحد نضيغه إلى 9 التي توحد 
على اليسار فنحصل على 10 إذا المجموع هو 100 


print "+ +(\$var=\"a0\")", ++($var= "a0"), "\n"; #al 
يتم زيادة واحد إلى 0 أي سنحصل على 1 > لا يوحد أي إحتغاظ إذا لن نغير ۾‎ 
ومنه النتيجة الأخيرة هي 1ه‎ 


print "+ +(\$var=\"Az\")", ++($var= "Az"), "\n" j; #Ba 

يتم زيادة واحد .أي ننتقل إلى الحرف الذي يلي 2 ء 

نحن نعلم آن z‏ هو الحرف الأخير من حيث الترتيب » 

إذا في هذه الحالة نعود إلى الحرف الأول من حيث الترتيب الأبجدي (ه) ونحتفظ بواحد هذا الواحد 
نضيغه إلى الحرق التاني(۸) أي - ننتقل إلى الحرف الذي يلي (۸) - أي (8) 

ومنه نحصل على ھ86 

ملاحظة: نحافظ على حالة الحرف إذا كان كبير أو صغير 


لتنفي 
print "+ +(\Ş$var=\"zz\")", ++($var= "zz"), "\n" ;‏ 

يتم زيادة 1 أي ننتقل إلى الحرف الذي يلي z‏ الذي هو هھ ونحتفظ ب1 

هذا الإحتغاظ يتيح الإنتقال إلى الحرف الذي يلي الحرقف الثاني (2) أي سيصبح هھ ونحتغفظ ب 1 

هذا الإحتفاظ الأخير حعلنا نظيف حرف د آخر 

منه نحصل على هaجج‏ 

ارحو ان الفكرة وصلت. هذا شرح غير متعمق. 

ربما لتتضح الفكرة اکتر راحع حدول ASC11‏ 


ملاحظة: هذه الميزة ليست متوفرة في ٤٣١۵۸٣١6۸‏ ه0-4) A‏ (--) . فعند إستعمالها مع سلسة 
حروف ترحع في الاغلب 1- 


ملاحظة: 


عند إستعمال (++) مچ متغير به قيمة ملہں فا هلمن يأخد القيمة 0 في الأغلب 
Undef($var) ;‏ 

print Ş$var++ ; 

عند التنفيد سيطبع 0 » وكما ذكرنا سابقا فإن ها سيأخذ القيمة 1 


كل هذه الأمثلة صالحة بالنسبة لا" e‏ emءdeczr-Auto‏ (--) إلا فقي بعض الحالات التي تم الإشارة 
إليها. 


Bitwise Operators (2.8.3 


p q P&q PIq P^q ~p 
1 1 1 1 0 0 
1 0 0 1 1 0 
0 1 0 1 1 1 
0 0 0 0 0 1 
الإحتمالات الشائعة لكل عملية‎ 
True= zuzصضص‎ =1 
False=İطؤطþz=0‎ 


qgp <---- P&q 


qsip <---- P|q 
p exclusive or q <---- P^q 


مہ -۔--> لیس م (او عکس م) 

الرمز دلالة ‏ 
~n‏ من احل النغفى(٤ه٥.)‏ (أنظر للأمثلة فى الأاسغل) 
and &‏ 
or |‏ 
(xor) exclusive or ^‏ 

(Shift Operators <<‏ نقل) نحو الیسار 

Shift Operators >>‏ نحو الیمین 


متال بسیط لکل من( ~ہ & | ۸ >> << ) 


The '&’ operator 


#!/usr/ perl/ bin/ 
#and1.pl 

use warnings ; 
use strict ; 


print "51 \& 85=" ,51&85; #17 


C:\>perl and1.pl 


51 & 85=17 
C:\> 


5 & 51 تساوي 17 
1إذا قمنا بتحویلها إلى النظام 81,۸3۲۷ نحصل على 00110011 
5دا قمنا بتحویلها إلى النظام 81٣2۲‏ نحصل على 01010101 
بعدها قم باحراء العملية التالية (01010101 & 00110011) (إستعمل الجدول الأول فوق كمؤنس) 
حسب الجدول المذكور فان : 
1 يعطي 1 
1و یعطي 0 
0و1 یعطي 0 
90 یعطي 0 


النتيجة التي نحصل عليها هى00010001 بعدها نحولها إلى النظام العشري لتكون النتيجة الأخيرة هي17. 
يمكن تلخيص ذلك في: 


51 [Î 00110011 
& VY: 
85 |< 101 


| | yyy 


17 @— 00010001 


The '|’ operator 


use warnings ; 
use strict ; 


print "51\|85=" ,51| 85 ; 


C:\>perl or1.pl 


51|85=119 
C:\>‏ 
5 |51 تساوي 119 
(85 | 51) 
قم باحراء العملية التالية (01010101 | 00110011) (إستعمل الجدول الأول فوق كمؤنس) 
النتيجة التي نحصل عليها هي01110111 بعدها نحولها إلى النظام العشري لتكون النتيجة الأخيرة هي119. 


يمكن تلخيص ذلك في: 


51 | 00110011 


| 
85 |< 01 


119 |€ 1111 


The '^’ operator 


use warnings ; 
use strict ; 


print "51\^85=" ,51^85; #102 


51^85=102 


C:\>perl xor1.pl 


C:\> 


15 تساوي 102 

)85 ^ 51( 
قم بإاحراء العملية التالية (01010101 ^ 00110011) (إستعمل الجدول الأول فوق كمؤنس) 
النتيجة التي نحصل عليها هي 01100110 بعدها نحولها إلى النظام العشري لتكون النتيجة الأخيرة هي102. 


يمكن تلخيص ذلك في: 
00110011 | 51 


^ ۸K 


85 | 01 


102 |€ 01110 


The '~’ operator 


'narl / him / 
/ perl / bin/ 


use warnings ; 
use strict ; 


print "\~85=", ~85; 


C:\>perl not1.pl 
~85=4294967210 
C:\> 
102 تساوي‎ ~5 
(~85) 
قم باحراء العملية التالية (01010101 ~ہ) (إستعمل الجدول الأول قوق كمؤنس)‎ 
النتيجة التي نتوقعها حسب الجدول هي10101010 بعدها نحولها إلى النظام العشري لتكون النتيجة الأخيرة‎ 
: إذان‎ processeur 32 bits هى170. لكن هذه النتيجة خاطئة بماآننا قي الاغلب نستخدم‎ 
(~00000000000000000000000001010101( | )“/01010101( العملية التي نقوم بها هي‎ 
النتيجة التي نحصل عليها هي 11111111111111111111111110101010بعدها نجولها إلى النظام‎ 
العشري لتكون النتيجة الأخيرة هي4294967210.‎ 


يمكن تلخيص ذلك في: 


~85 —*  ~00000000000000000000000001010101 
4294967210 4 111| | 1| 1 12 2211111111111010 110 


The `< <’ operator 


use warnings ; 
use strict ; 


print "51\]<<2=" ,85<<2 ; 


C:\>perl Shift2.pl 
85<><<23040 


C:\> 


85>>2 تساوي 340 


(2 >>85) 
قم باحراء العملية التالية (00000010 >> 01010101) 
النتيجة التي نحصل عليها هي 0101010100 بعدها نحولها إلى النظام العشري لتكون النتيجة الأخيرة 
ھي340. (تذكر أننا نفترض (processeur 32 bits pدخiwسi iiİi‏ 


85 


29 28 27 I MB mE oI 7 OG 5S 43S2 


TFT [910 0]0]0]0][0[]0[0 [0 [0 [0 [0 [o0 [o0 [0[0[0[0[0[]0[1[0[1 [0 0 
1 TE 9 8 7 6 5 4 1 
0]0]0]0 


0 


رسم بياني يفسر عملية الإنتقال نحو اليسار(حسب المتال طلبنا أن يتم الإنتقال بخانتين(كاأا2) 
نحوالیسار ) 


The '>>’ operator 


use strict ; 
my $var=85 ; 
print "85\>>3=" ,$Şvar>>3; #10 


أ اا 


C:\>perl Shift2.pl 
85><>3=10 
C:\> 


85>>3 تساوي 340 
(3 <<85) 
قم باحراء العملية التالية (00000011 << 01010101) 
النتيجة التي نحصل عليها هي 00001010 بعدها نحولها إلى النظام العشري لتكون النتيجة الأخيرة هي10. 
(تذ كر اننا نفغترض (processeur 32 bits pدخiwسنi liil‏ 


يمكن تلخيص ذلك في: 
85 
Y‏ 
10 765747437 8 9 2 27 28 
29 30 31 


رسم بياني يفسر عملية الإنتقال نحو اليمين(حسب المثال طلبنا أن يتم الإنتقال ب3 خانات (كئااط3) 
نحو اليمين ) 


Concatenation Operators(3.8.2 


(c0ncatenation)للتوحيد‏ بين العمليات وسلاسل نصية التي سيتم طباعتها نضع الفاصلة(,) 
بينهما ولا نضع علامة زائد (+) . 
لنضع (+) بدل (,) ونرى النتيجة: 


#!/usr/perl/bin/ 

# concatenation1.p]l 

use strict; 

my ($var,$sum) ; 

$var=44; 

print ''44+4='"", $var+4,''\n'" ; #1 


print ''44+4='"+ $var+4,'"\n'" ; #2 


print '"44Hi4='"'+ $var+4,''\n" ; #3 


print "Hi44+4='"'+ $var+4,''\n'" ; #4 


بعد التنفيذ: 


C:\>perl concatenation1.pl 
44+4=48 
92 


92 
48 


C:\> 
في هذه الحالة نحصل على نتيجة عادية‎ :1 
›»44+44+4 بدل (,) نحصل کی ا ا ر د ا ی هذه العملية‎ )٣( هناو عند إستعمال‎ 2 
حيث تم إعتبار "=44+4" کأنه العدد 44 ففي هذه الحالة يتم أخذ العدد الأول من سلسلة النصوص.‎ 

3: نفس ماوقع في(2) > أخد العدد الأول من سلسلة النصوص("=44114") أي 4 و إضافتھا ل 48 .)$var+4(‏ 
4: هنا لايوجد عدد في أول سلسلة النصوص ("=11144+4") ولهذا يعتبر 0 هو العدد الأول أي سيتم إضافة 0 ل48 . 
ملاحظة: لو إستعملت (;ئومرنمإهس مءں) فسيتم إظهار تحذير يبين لك أن الذي قمت بإضافته للعدد 48 هو ليس عدد 
متال للتحذير الذي سيظهر لك: 

Argument '"'"44+4='"" isn't numeric in addition (+) at C:\ concatenation1.pl line 25 


أما بالنسبة للتوحيد بين سلسلة رموز مع سلسلة رموز أخرى نضع نقطة(.) بينهما. 
لنرى هذا المثال: 


use warnings; 

use strict; 

my ($part1,$part2)=( ''"Hello'",''world"") ; 
print $part1.'"' '".$part2.''\n"" ; 


C:\>perl concatenation2.pl 
Hello world 


C:\> 


أظن أن المتثال واضح 


متال آخر: 


use warnings; 

use strict; 

my ($part1,$part2)=( "Hello" r" world") ; 

print $part1." ".$part2," \n \n" ; # "Hello world" 


print $part1.$part2.3+2,"\n "; #' 
print $part1.$part2,3+2,"\n\n" ; #"Hello world",3+2 -----> Hello world5 
($part1,$part2)=( 4,6) ; # عطاء قيم حديدة لكل من المتغيرين‎ 
print Ş$part1.$part2.$part1+$part2."\n" ; ب‎ "4 
print $part1,$part2, $part1+$part2."\n\n" j # 


print $Şpart1.$part2." ".$part1+$part2."\n"; # "46 4"+6 ------> (مع إظهار تحذير)52‎ 
print $part1.$part2." ", $Şpart1+ $part2."\n" ; # "46 ",4+6 -----> 46 10 


C:\> perl concatenation2. pl 
Hello world 


Argument "Helloworld3" isn't numeric in addition (+) at C:\ 
concatenation3.pl line 9. 

2 

Helloworld5 


470 
4610 


Argument "46 4" isn't numeric in addition (+) at C:\ concatenation3.pl line 


أظن أن المثال واظح: 
ملاحظة : هنا إستعملنا (;ئوا٣اaس‏ مءu)‏ لهذا تم إظهار التحذيرات. 


أرحو أن نكون قد إستوعبنا الفرق بين إستخدام الفصلة (,) و (+) و نقطة(.) عند إستخدامهما 
eĞعlgمںۈٽ Concatenation‏ 


Comparison Operators(4.8.3 


تستخدم لإجراء عمليات المقارنة 


يرحع صحيح إذا كان المعامل 


ك eq‏ الموحود يسارا [(==) أو (۹ه)] 
هو يساوي المعامل الموحود 
على اليمين 
ت It‏ يرحع صحيح إذا كان المعامل 


الموحود يسارا [(>) أو ])٤(‏ هو 


It == less /h10۸ == أصغر من‎ 
gt == greater (han == jم كبر‎ 


le == less than or equal t0 == أصغر من أو يساوي‎ 
ge == greater than or equal t0 == أكبر من أو يساوي‎ 


متال: 


gt 


ge 


ne 


cmp 


print 3<=>2, "\n"; # -1 


أصغر قطعا من المعامل 
الموحود على اليمين 
يرحع صحيح إذا كان المعامل 
الموحود يسارا [(=>) او (ما)] 
هو اصغر من او يساوي المعامل 
الموحود على اليمين 
يرحع صحيح إذا كان المعامل 
الموحود يسارا [(<) او (٤و)]‏ 
هو أكبر قطعا من المعامل 
الموحود على اليمين 
يرحع صحيح إذا كان المعامل 
الموحود يسارا [(=<) او (مو)] 
هو اکبر أو يساوي المعامل 
الموحود على اليمين 
يرحع صحيح إذا كان المعامل 
الموحود يسارا [(= !) او ])۸٥(‏ 
هو لا يساوي المعامل الموحود 
يرحع 1 |و 0 او 1- إذا کان 
المعاملٍ الموحود يسارا 
[(<=>) او (مcm)]‏ هو علی 
التوالي (اصغر او يساوي او 
اكبر) من المعامل الموحود على 
اليمين 


#1 /usr/ perl / bin/ 

# Comparison1.pl 
use warnings; 

use strict; 


print 1==1, "\n"; #1 
print 1= =2, "\n\n "; # 


print "mm" eq "mm" , TL # 1 
print "mm" eq HE "\n\n wv ۳ 2 


print 2<4, "\n"; #1 
print ("a" It "þ" 0 "\n") ۴ #1 


print 8>3, "\n"; #1 
print ("c" gt "a", "\n\n "); #1 


print 3 !=1, "\n"; #1 
print Cz ne "fk" "\n\n ( 2 # 0 


print 3<=>3, "\n"; #0 


TTT 


عندما لا يتم طباعة شيء فالأغلب يعني ذلك أن هناك خطأً ما (عءاھ۴) 


print 2<=>3, "\n"; #1 
print ("m" cmp "m" , "\n "); 
print ("m" cmp "t" , "\n "); 
print ("t" cmp "m" , "\n ") ; 


C:\>perl Comparison1.pl 
1 


المعاملات المنطقية تستخدم لإجراء مقارنة منطقية» وغالبا ما تكون أطراف المقارنة إحدى القيم 1 (عu٣۲)‏ أو 0 


.(False) 
۴aاs€ع او‎ ۲٣U٤٥ عند إجراء مقارنة يكون ناتج هذه المقارنة إحدى القیم إما‎ 


and gİ && 
or |و‎ | 
xor 


not و‎ ! 


متال: 


بالنسبة ل((2==2) && (1==1)) 


use warnings; 
use strict; 


print (((1==1) && (2==2)), "\n"); # 1 

print (((1==1) and (2==2)), "\n"); #1 

print (((1==1) && (2==7)), "\n "); # 

print ((("t" eq "m") && ("t" eq "m")) , "\n\n") ; 


print (((1==1) | | (2==2)), "\n"); # 1 
print (((1==1) or (2==2)), "\n") ; # 1 
print (((1==1) | | (2==7)), "\n "); # 1 
print ((("t" eq "m") | | ("t" eq "m")) , "\n\n") i 


print (((1==1) xor (2==1)), "\n\n"); #1 


print ((not (2==1)), "\n"); # ` 
print ((! (2==1))); # : 


C:\>perl Logical.pl 
1 


1 


EE „, EE 
E. REE 


للإستعاب أكثر إستعن بالجدول السابق 
True‏ | 1 
gl False‏ 0 


بالنسبة ل ((2==1) (not‏ 


عندما لا يتم طباعة شيء فالاأغلب يعني ذلك أن هناك خطأ ما (عءا۴) 


String Operators (6.8.3 


الرمز الدلالة 
(النقطة) خاص بتوحيد 
(nationهconcat)‏ سلسلة 
رموز(و٣آ۲اء)‏ مع اخری . 
متال: 
$str="abc"."defgh" ;‏ 
عند طباعة ٣ائ‏ نحصل على 
abcdefgh‏ 
(حرف× صغیر) یسمح بتکرار 
سلسلة رموز معينة لعدد من 
المرات أنت تحدده 
متال: 
$str="a"X6 ; 4‏ 
عند طباعة ٣ائ‏ نحصل على 
aaaaaa‏ 
نلاحظ أنه تم تکرار حرف ھ ست 
مرات 
~= تستخدم على العموم في 


التعبير المنتظم( ۲داuوعR‏ 


Expression‏ ) (سنتطرق لهذا 
لاحقا) 
ملاحظة: 
يوجد كذالك الأشكال المختصرة للمعاملات الرئيسية (مثل )٤‏ . نجد في هذا الصدد : 
=>> ,=.,=/| ,=* ,=-,=+, وھکذا is‏ 
ملاحظة: 


ا تدل إلى مجال ما 


print (0..6) ;‏ 
سيتم طباعة: 


0126 
إذا 0..6 تدل على المجال التالي [0,6] 
مثال اخر: 
print ("a".."g");‏ 


9.3) بعض الدوال الخاصة ب و اإ†S‏ 


الدالة تفسير 
case( uc()‏ rمupp)‏ تمکن من تحویل الحروف إلی حروف کبیرة 


منال: ا print‏ 


1c)‏ (case-اweسها)‏ تمكن من تحويل الحروف إلى حروف صغيرة 
مثJl:‏ ))" print (Ic("PALESTINE‏ 
ا 


ucfirst()‏ تمكن من تحويل الحرف الأول من حملة ما إلى حرف صغيرة 


print (ucfirst("PALESTINE ")) :Jlie 
: سیطبع‎ 
تمكن من تحويل الحرق الأول من حملة ما إلى حرف كبيرة‎ lufirst() 


متال: print (Icfirst("palestine”‏ 
ET chr()‏ لتحويل رقم ما إلى سلسلة رموز (9٣١۲†ء)‏ 


print (chr(112)) :Jliم‎ 
سیطبع : م‎ 


ASCII إلى‎ (s٣١ ٣9( لتحويل سلسلة رموز‎ e 5 
print (ord("ص"))‎ :Jlتe‎ 


)ء٤‎ ٣٣ ٣و( هذه الدالة تقوم بإرحاع عدد. هذا العدد يدل على طول سلسة الرموز‎ lengthO 


print (length("Palestine")) :Jlie 


index() 


rindex() 


substr() 


chomp() 


هذه الدالة تقوم بإرجاع رقم هذا العدد يدل على موقع الحرف الذي نبحث عن موقعه 
print EEE: E‏ 
سیيطبع : 


lieا:‏ : print (index("Palestine","e",1))‏ 
f +:‏ 
نفرض أننا حددنا له أن يبدأ البحث من الموقع رقم 4 
مثلا: 0 print (index("Palestine","e",‏ 


سیطبع : 
بدأنا البحث من الحرف رقم 4 أي من الحرف ١‏ إذا بدأنا البحث بعد e‏ الأولى لهذا تمت طباعة 8 
التي تدل على حرف ع الذي يوجد في الموقع ذات الرتبة 8. 


8 Ek 


على العموم هذه الدالة مثل ()×عل٣ا‏ » الإختلاف الملاحظ بينهما هو أن index()‏ تبدأً البحث 
ابتداء من أول حرف إلى الحرف الأخیر » بینما ۴|٣۵6×)(‏ تقوم بالبحث من أخر حرف إلى أول حرف 


print (rindex("Palestine", E: متال:‎ 

سیطبع : 

e‏ توحد في موقعين. الموقع الذي يأتي في الرتبة رقم3 و الموقع الذي يأتي في 
الرتبة رقم 8 . 

بما أن اا تبدأ البحث من أخر حرف و ء٠‏ توحد في الموقع الأخير من الكلمة الذي 
يأتني في الرتبة رقم 8 . لهذا تم طباعة 8 ولم يتم طباعة 3 الذي يدل على موقع م 
الثاني 


print (rindex("Palestine","e",4)) منلا: چ‎ 


قمنا بتحديد موقع إنطلاق البحث وهو 4 . (كما ذكرنا الدالة تبدأ البحث من أخر حرف في إتجاه أول 
حرف)» Î‏ الموجود في الموقع ذات الرتبة الرابعة هو آخر حرق . لهذا تم طباعة 3 
لآنه هو أول فيه على € 


تمكننا من تحديد جزأً من سلسلة رموز (9و١٠۲ء)‏ ما الذي سيطبع أو الذي سيبدل بسلسلة 
رموز(9٣|۲ء)‏ آخری متلا أو یمککنا من تحدید المكان الذي سنزید فيه سلسلة رموز (9١۲؟)‏ 

جديدة ضمن سلسلة الرموز الموجودة مسبقا. 

يمكننا أن نلخص بارامتر هذه الدالة بالتالي: 
substr(a,b,c,d)‏ 
ه---> بدلا منها نضع التعبير المراد العمل عليه 
ط-----> بدلا منه نضع الرقم الذي يدل على الموقع الذي سيكون بداية التحديد 
€ ---- -> بدلا منه نضع طول آو عدد الرموز المراد تحديدها 
هذه الدالة تستخدم بكثرة لمسح و إزالة (القفز لسطر جديد) (۸]) الموجود في آخر الجملة 
مثلا : 


my $d="abcd\n defg\n end\n" ; 


chomp ($d) ; 

print $d ; 

print "DELETE" ; 
abcd 
defg 
endDELETE 


نفرض أننا لم نستعمل الدالة ()۳٥٠ء‏ النتيجة المتوقعة في هذه الحالة هي: 


chop() 


defg 
end 
DELETE 
الموحودة في الرتبة‎ )]١( منه نستنتج انه عندما إاستعملنا () ۲٥۸۸ء فقد تم إزالة‎ 
الآاخيرة‎ 


لنلاحظ هذا المتال: 
my $d="varible1_line1\nvarible1_line2\nvarible1_line3\n" ;‏ 
my $z=" VARIABLE2\n";‏ 
print "Return", chomp ($d,$z),"\n"; #1‏ 
print $d ;‏ 
print $z ;‏ 
print " DELETE";‏ 


1-----> تم حذف (1۸) الموجود في الموقع الأخير في كل من المتفيرين $ و <$ وذلك في 
وقت واحد.» و في نفس الوقت طلبنا طباعة ما سیتم إرجاعه من طرف الدالة ()۳ ۸01 . 

هنا تم إرجاع 2 ويدل ذلك أن الدالة قد قامت بحذف )1١(‏ مرتين حيث الأولى تم حذفها من 
المتغير $4 والثانية من المتفير $2 . 


هذه الدالة تقوم بحذف رمز أو حرف أو رقم من أخر سلسلة رموز ما (و٣أ٣اء)‏ 
مثلا: 


my $d="abcd" ; 

print "Return ",chop ($d),"\n" ; 

print $d ; 
Return d 
abc 

قمنا بطلب حذف الحرف الأخير من الكلمة التي يحتويها المتفير $4 وفي نفس الوقت قمنا بطلب 

طباعة ما سيتم إرجاعه من طرف الدالة ()P٥1ء‏ » وفي الأخير طلبنا بطباعة المحتوى النهائي 

للمتغير ك$ . 


0.) بعض الدوال الخاصة ب ۶ع٥مbصNum‏ 


الدالة 


abs 


int 


sqrt 


* 


exp 


log 


rand 


يرحع أي فيمة إلى القيمة المطلقة 
متال 
my Ş$var1 = abs(-3.4); # var1 is 3.4‏ 
my Ş$var2 = abs(5.9); # var2 is 5.9‏ 


تستخدم من أحل تحويل الأعداد العشرية إلى الأعداد الصحيحة 
متال 
my $price = 9.95;‏ 
my Ş$dollars = int ($price);‏ 
1 هو 9 . ليس 10 وهذا خاطاأً من أحل الإعلان عن السعر 


يمكن أن تكتب التالي 
my $price = 9.95;‏ 
my $dollars = sprintf("%o.Of", $price);‏ 
في هذه الحالة كاداام0 هو 10 (كما راينا في (Standard output‏ 


هذه الدالة تستعمل في حساب الجدر المربع 
مثال 
my Ş$var1 = sqrt(16); # var1 is 4‏ 


تستعمل للدلالة على الأس 


my $var1 = 4**2; # var1 is 16 


مثال 


ترحع ٠‏ أس القيمة المعطاة بحيث 2.71828182845905 =ه 
متال 
my Ş$var1 = exp(0); # var1is (e**0=1)‏ 
my Ş$var2 = exp(1); # var2is (e**1=2.71828182845905)(‏ 


my $var3 = exp(8); # var3 is (e**8= 2980.95798704173)( 


ترحع عكس الدالة ()م×ع 
منال 


my $var1 = exp(0); # var1 is 1‏ 
my Ş$var1 = log(1); # var1 is 0)‏ 
ترجع قيمة عشوائية 
لكن إذا أعطيتها قيمة محددة فالقيمة العشوئية التي ترجعها هذه الدالة تكون محصورة بين 0 و 
القيمة المعطات (القيمة المعطات => القيمة العشوائية التي ترجعها الدالة => 0) 


أما في حالة لم تعطي لها أي قيمة محددة فالقيمة العشوئية التي ترجعها هذه الدالة تكون 
محصورة بين 0 و واحد (1 > القيمة العشوائية التي ترجعها الدالة => 0) 


| يمك القول أن هذه الدالة تقو يحورل القيمة الحدطاة لها مى التطام المت فشك إلى النطاد 
العشري.. متال hex)''E5'')=229‏ 

6 _| يمكن القول أن هذة الدالة تقوم بتحويل القيمة المعطاة لها من اقات إلى النطام الخشرى 
ملاحظة :هناك دوال أخری مثل .....۸,۵۸ c۵5,‏ 


4) حمل الشرط والتكرار 


: سنتعلم في هذا الجزء كيف نستخدم اعم في تنفيذ تعليمات محددة دون غيرها وفق شروط معينةء 
وايضا تكرار لعدد معين من المرات لتعليمة ما . 


Conditional Statements طhرJ|‎ Jaج‎ * 
If - 

unless- 

switch — 


Iteration Statements تٽlقlحJlو *#جحمل التكرار‎ 
while - 

do while - 

for — 

foreach - 


1) الجمل الشرطية 


if (4.1.1‏ 
للإنجاز إختبار بسيط 
)( شرط_رئیسیي) 1۴ 
اهاه اة فاحل ا66 ج وها في ال الي كوت فوا المرط تى حه 


‌ 


للإنجاز إختبار مركب 


)(الشرط_رنیسي) 1۴ 
التعليمات الموجودة داخل هذا العهاط يتم تنفيذها في الحالة التي يكون فيها الشرط_رئيسي صحيح 


else 
التعليمات الموجودة داخل هذا العهاط يتم تنفيذها في الحالة التي يكون فيها الشرط_رنيسي خاطئ‎ 
‌ 


لإنجاز إختبار متراكب أو متداخل 
)(شرط_رنیسي) 1 
اقغات الفوجوة دأخل هذا 66ا5 يتم ها قن اعات الى كوت فعا ارط الرتيمتى صح 


)(شرط _حدید) ایام 
التعليمات الموجودة داخل هذا العهاط يتم تنفيذها في الحالة التي يكون فيها الشرط_الرنئيسى خاطئ 
والشرط_الجديد صحيح 
‌ 
else‏ 
التعليمات الموجودة داخل هذا العهاط يتم تنفيذها في الحالة التي يكون فيها الشرط_الرنئيسي خاطئ 
والشرط_الجديد خاطئ 


رسم توضيحي للإختبار المتراكب أو المتداخل 


unless (4.1.2 


وظيفة ككعام ن تقريبا متلها مثل وظيفة أ لکن بشكل معكوس (إن صح التعبیر): 
essاnل‏ تعني بالعربية: ما لمء إلا إذا 


بشکل مختصر انظر للتالی: 
unless if‏ 
Unless (1>2) if (1>2)‏ 
print ("unless") print ("if")‏ 
‌ } 
هنا لن يطبع شيءِ ھنا سیطبع sیعاہں‏ 


من هذا يمكن أن نكتب التالي: 


للإنجاز إختبار بسيط 
)(شرط_رنیسی) کءءعاہںu‏ 
التعليمات الموخودة داخل هذا الههاط يتم تنفيذها في الحالة التي يكوت فيها الشرط_رثيسي خاطئ 


‌ 


للإنجاز إختبار مركب 


(٤‏ شرط_رئیسی) ککعاہں 
التعليمات الموجودة داخل هذا التهاط يتم تنفيذها في الحالة التي يكون فيها الشرط_رئيسي خاطئ 


else ‡‏ 
التعليمات الموجودة داخل هذا الع‌ه‌اط يتم تنفيذها في الحالة التي يكون فيها الشرط_رئيسي صحيح 
‌ 


If ( !(condition))... <====jڄlSi‎ ====> unless (condition)... 
مع العلم أن ٣٥اtاdإnهc المستخدم في ككعامنا نفسه المستخدم في گا‎ 


: م6٣١ توجد كتابة آخرى يمكن إستعمالها في‎ 
command if (condition) <----- 
print ("free=Palestine") if($palestine= =$mokawama) Jlie 


ree=Palestine 


وذلك في حالة أن الشرط هو صحيح 


command unless (condition) <----- 
print ("free#Palestine") unless($palestine= = $mokawama) Jli 


وذالك في حالة أن الشرط هو خاطئ 


يوجد في |۵۲ كتابة مختصرة يمكن إستعمالها في حالة الجمل الشرطية: 


condition ? command : command 
متال:‎ 
(1<2) ? (print "true") : (print "false") 


و3 لكوت 6001 616 فلو كان الشرط خاطئ فسيطبع ٥ءاه؟‏ 


متال آخر: 

$i=($a==$b) ? $a : $b; 

أ ستأخذ القيمة التي توحد لدى ه$ إذا كان هخ و طخ لهما نفس القيمةء 

أما في الحالة التي يكون فيها هخ و طخ لهما قيمتين مختلفتين فإن أ ستأخذ القيمة التي توحد لدى 
$b‏ . 


switch (4.1.3‏ 
عندما نريد إختبار متغير ما عدة مرات متتالية في شروط مختلفة من أجل التحقق من مختلف القيم الممكنةء 
يمکن أن نستعمل (عءاع/fآءام/1f)‏ لكن هده الطريقة طويلة ومملة . 


If($Şchoice= =0)‏ 
التعليمات الموجودة داخل هذا ال‌هاط يتم تنفيذها في الحالة التي يتم فيها إختيار 0 


}ٍ 
elsif(Şchoice= =1)‏ 
التعليمات الموجودة داخل هذا العهاط يتم تنفيذها في الحالة التي يتم فيها إختيار 1 


elsif(Şchoice= = 2)4‏ 
التعليمات الموجودة داخل هذا العهاط يتم تنفيذها في الحالة التي يتم فيها إختيار 2 
} 


elsif(Şchoice= =3)‏ 
التعليمات الموجودة داخل هذا الع‌هاط يتم تنفيذها في الحالة التي يتم فيها إختيار 3 


else 
التعليمات الموجودة داخل هذا ال 0اط يتم تنفيذها في الحالة التي لن يتم فيها إختيار أي من الإختيارات السابقة‎ 
اي ليس 0 و1 و2 و3‎ 
ٍ 


بدل هذه الطريقة المملة يتيح لنا ١۴۲م‏ سء وذلك مثل معظم اللغات 


switch($Şchoice){ 
case 0 
0 التعليمات الموجودة داخل هذا الع‌هاط يتم تنفيذها في الحالة التي يتم فيها إختيار‎ 
case 1 
1 التعليمات الموجودة داخل هذا العهاط يتم تنفيذها في الحالة التي يتم فيها إختيار‎ 
case 2 
2 التعليمات الموجودة داخل هذا الع‌هاط يتم تنفيذها في الحالة التي يتم فيها إختيار‎ 
} 
case 3 
3 التعليمات الموجودة داخل هذا ال‌هاط يتم تنفيذها في الحالة التي يتم فيها إختيار‎ 
else 


التعليمات الموحودة داخل هذا ال٥هاط‏ يتم تنفيذها في الحالة التي لن يتم فيها إختيار أي من الإختيارات السابقة 
اي ليس 0 و1 و2 و3 
} 


use Switch 'per|5' ةفlظإ‎ iojlı switch Jlnعتwإ‎ دie‎ 


مثال: 


use strict ; 
use Switch 'per|5'; # S حرص كبير‎ 


print "entrez une valeur entre 0 et 4" ; 
my Ş$val; 
Şval=<STDIN>; 

chop($val); 


switch ($val) 4 # حرف صغفىر‎ s نكکتب‎ 
case 0 { 
print "O" ; 
} 


case 1 
print "1"; 
} 

case 2 4 
print "2" ; 
} 

case 3 
print "3"; 


else 
print "erreur , entre une valeur entre 0 ã 4"; 


} 


system "pause"; 


هنا سنتكلم عن بديل آخر وهو ١1۷۵و‏ الذي يعتبر من ع×هةا١۷ء‏ المستقبلي الذي سنجده في 6۲۱6 › 
نصل إلى هذه الكتابة بكتابة ۵۲6م بدل 5١۵۲م‏ 
أي نكتب use Switch 'per|6'‏ 
given($choice){‏ 

when 0 4 

التعليمات الموجودة داخل هذا الها يتم تنفيذها في الحالة التي يتم فيها إختيار 0 
‌ 

when 1 ¢ 

التعليمات الموجودة داخل هذا العهاط يتم تنفيذها في الحالة التي يتم فيها إختيار 1 


} 
when 2 {‏ 
التعليمات الموجودة داخل هذا الع‌هاط يتم تنفيذها في الحالة التي يتم فيها إختيار 2 
‌ 


when 3‏ 
التعليمات الموجودة داخل هذا ال‌هاط يتم تنفيذها في الحالة التي يتم فيها إختيار 3 


} 

default{ 
التعليمات الموجودة داخل هذا الع‌هاط يتم تنفيذها في الحالة التي لن يتم فيها إختيار أي من الإختيارات السابقة‎ 
أي ليس 0 و 1 و 2 و 3 (بمعنى أنه هنا يتم وضع التعليمة أو البديل الإقفتراضي)‎ 

} 


use Switch 'per15', 'per|6' ; :پتكi‎ givens SWiCh ja J في حالة أننا نريد إستعمال‎ 


2) الجمل التكرارية 


while , until (4.2.1 


while 
while (hill) 4 
سيتم إعادة تنفيذ التعليمات التي ستكتب هنا‎ 
ما دام الشرط صحيح‎ 
} 
until 
until (bhرiJl)‎ + 


إلى ان يتحقق الشرط (او حتى يكون الشرط صحيح) 
} 
ملاحظة: كتابة آخرى عند إستعمال تعليمة واحدة 


instruction while (condition); 
instruction until (condition); 


do while , do until (4.2.2 


do while 
do{ 
ما دام الشرط صحيح‎ 
} while (الشرط)‎ ; 


do until 
dot 
إلى ان يتحقق الشرط (او حتى يكون الشرط صحيح)‎ 
} untiا (الشرط)‎ ; 


for (4.2.3‏ 
يوجد مجحموعة من الكتابات الممكنة بالنسبة ل٣0‏ 


أولا هناك الطريقة المعهودة في لغة € 
for(instruction ;condition ; augmentation)‏ 


تعلیمات 
} 
متال: 
for(my $i=0 ;$i<4 ;$i++){‏ 
printf("/od\n",$i) ;‏ 
} 
منال آخر 


for(my ($i,$j)=(0,4) ;$i<4 ;$i++,$j--){ 
ا‎ 


طريقة آخریى: 


my $i; 

for(0..3)4 
$i+=1; 
print "$i" ; 
‌ 


4 


النقطتين (0) و تنتهي بالقيمة التي تأتي بعد النقطتين (3) 
إذن يمكن القول أن هذه الكتابة(0..3) هي إختصار لكتابة سلسلة مكونة من أربعة 
أرقام وهي كالتالي0,1,2,3 


foreach (4.2.4 


أولا 
foreach(list)‏ 
ٍ 
متال. 
foreach(0..2)4‏ 
print "M\n" ;‏ 
‌ 
تانيا 


foreach (array) 
: 


‌ 


مثال 
foreach element (array)‏ 
تعلیمات 
‌ 


ملاحظة: سنتطرق لأمثلة توضيحية عندما نتكلم عن المصفوفات 


ملاحظة: العبارة ئها تستعمل في الحالة التي نريد الخروج من أحد الجمل 
التكرارية سابقة الذكر 


متال: 


use strict ; 


my $i; 
for (0..10) 
$i += 1; 
if($i==6){ 
print "\n$i"; 
last; 


print "\n$Şi"; 


Aalhanane 


ملاحظات أو تعليقات أو تصحيح لأخطاء ترسل إلى 
aalhananes1 @ gmail.com‏ 


http://www.arabteam2000-forum.com 


